From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 20 May 2007 05:48:36 +0000 (+0000)
Subject: Reduce to a minor-mode macro call.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18794
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ec639d76702bdcf7e8429ff778a3985a18c7cc88;p=emacs.git

Reduce to a minor-mode macro call.
(t-mouse-mode) Remove the lighter.
---

diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index 42db325176b..a780a9932c9 100644
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -47,8 +47,9 @@ With prefix arg, turn t-mouse mode on iff arg is positive.
 This allows the use of the mouse when operating on a Linux console, in the
 same way as you can use the mouse under X11.
 It requires the `mev' program, part of the `gpm' utilities."
-  nil " Mouse" nil :global t
-  (unless window-system
+  :global t :group 'mouse
+  (if window-system
+      (error "t-mouse only works in the console on GNU/Linux")
     (if t-mouse-mode
 	(progn
 	  (unless (fboundp 'term-open-connection)